home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Grafik / Paint / PerfectPaint / rexx / general / Warp.rx < prev   
Encoding:
Text File  |  2000-05-27  |  636 b   |  43 lines
  1. /* Warp arexx
  2.     Ce script va :
  3.     - construire une animation de 10 images
  4.     - faire un warp sur chaque image.
  5.     - jouer l'animation
  6.     */
  7.  
  8.     options results
  9.     parse ARG Port b
  10.     
  11.     ADDRESS value Port
  12.     
  13.     pp_GetWidth
  14.     width=result
  15.  
  16.     pp_GetHeight
  17.     height=result
  18.     
  19.     pp_MakeAnim 10
  20.     
  21.     radius=50
  22.  
  23.     do i=1 to 10
  24.         do z=0 to width by 50
  25.             do zz=0 to height by 50
  26.                 Dx=random(0,5,time('S'))
  27.                 Dy=random(0,5,time('S'))
  28.                 a=random(0,5,time('S'))
  29.                 if a>2 then
  30.                     do
  31.                         Dx=Dx*-1
  32.                     end
  33.                 a=random(0,5,time('S'))
  34.                 if a>2 then
  35.                     do
  36.                         Dy=Dy*-1
  37.                     end                
  38.                 pp_Warp z zz radius Dx Dy
  39.             end
  40.         end
  41.         pp_NextFrame
  42.     end
  43.     pp_PlayAnim 1